?LieMorphism*

μ=h[3] LieSeries[⟨"1"⟩,0,0,0,0]+h[4] LieSeries[⟨"2"⟩,0,0,0,0]

{x,y,z}={3,2,5}

Ad[D[μ, h[x]]][LW[z]]

a1=D[μ, h[x]]

a2=LW[z]

Ad[D[μ, h[x]]]

Ad[D[μ, h[x]]][MakeLieSeries[5, LW[z]]]

a2 // ad[a1]

a2 // ad[a1] // ad[a1]

b[LieSeries[⟨"1"⟩,0,0,0,0], ⟨"5"⟩]